home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Controls / Visual Basic Controls.iso / vbcontrol / dynaslid / form1.frm (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1998-11-10  |  9.8 KB  |  304 lines
  1. VERSION 5.00
  2. Object = "{E548D383-7882-11D2-8D50-0000B456D8CA}#2.0#0"; "DynaSliderX.ocx"
  3. Begin VB.Form Form1 
  4.    BackColor       =   &H00000000&
  5.    Caption         =   "Test DynaSlider - http://www.station-media.com/dynamedia"
  6.    ClientHeight    =   6375
  7.    ClientLeft      =   60
  8.    ClientTop       =   345
  9.    ClientWidth     =   8835
  10.    LinkTopic       =   "Form1"
  11.    Picture         =   "Form1.frx":0000
  12.    ScaleHeight     =   6375
  13.    ScaleWidth      =   8835
  14.    StartUpPosition =   3  'Windows Default
  15.    Begin DynaSliderX.DynaSlider DynaSlider9 
  16.       Height          =   3690
  17.       Left            =   8250
  18.       TabIndex        =   15
  19.       Top             =   525
  20.       Width           =   315
  21.       _ExtentX        =   556
  22.       _ExtentY        =   6509
  23.       MaxValue        =   6780
  24.       MinValue        =   4400
  25.       PicBackGround   =   "Form1.frx":1874
  26.       PicButton       =   "Form1.frx":3028
  27.       ButtonBorderMax =   39
  28.       ButtonBorderMin =   40
  29.       Value           =   6780
  30.       PicBackGround   =   "Form1.frx":3304
  31.       PicButton       =   "Form1.frx":4AB8
  32.    End
  33.    Begin DynaSliderX.DynaSlider DynaSlider10 
  34.       Height          =   2610
  35.       Left            =   6120
  36.       TabIndex        =   14
  37.       Top             =   120
  38.       Width           =   1440
  39.       _ExtentX        =   2540
  40.       _ExtentY        =   4604
  41.       PicBackGround   =   "Form1.frx":4D94
  42.       PicButton       =   "Form1.frx":9248
  43.       ButtonBorderMax =   18
  44.       ButtonBorderMin =   30
  45.       Value           =   500
  46.       PicBackGround   =   "Form1.frx":98D0
  47.       PicButton       =   "Form1.frx":DD84
  48.    End
  49.    Begin DynaSliderX.DynaSlider DynaSlider5 
  50.       Height          =   1095
  51.       Left            =   6240
  52.       TabIndex        =   6
  53.       Top             =   3480
  54.       Width           =   450
  55.       _ExtentX        =   794
  56.       _ExtentY        =   1931
  57.       MaxValue        =   255
  58.       PicBackGround   =   "Form1.frx":E40C
  59.       PicButton       =   "Form1.frx":F134
  60.       ButtonBorderMax =   3
  61.       ButtonBorderMin =   2
  62.       Value           =   100
  63.       PicBackGround   =   "Form1.frx":F43C
  64.       PicButton       =   "Form1.frx":10164
  65.    End
  66.    Begin DynaSliderX.DynaSlider DynaSlider3 
  67.       Height          =   405
  68.       Left            =   2250
  69.       TabIndex        =   4
  70.       Top             =   510
  71.       Width           =   3765
  72.       _ExtentX        =   6641
  73.       _ExtentY        =   714
  74.       MaxValue        =   255
  75.       PicBackGround   =   "Form1.frx":1046C
  76.       PicButton       =   "Form1.frx":121F8
  77.       ButtonBorderMax =   5
  78.       ButtonBorderMin =   5
  79.       Value           =   255
  80.       SliderVertical  =   0   'False
  81.       PicBackGround   =   "Form1.frx":12624
  82.       PicButton       =   "Form1.frx":15388
  83.    End
  84.    Begin DynaSliderX.DynaSlider DynaSlider2 
  85.       Height          =   855
  86.       Left            =   1320
  87.       TabIndex        =   3
  88.       Top             =   3600
  89.       Width           =   3945
  90.       _ExtentX        =   6959
  91.       _ExtentY        =   1508
  92.       MaxValue        =   3930
  93.       MinValue        =   20
  94.       PicBackGround   =   "Form1.frx":15840
  95.       PicButton       =   "Form1.frx":196C0
  96.       ButtonBorderMax =   8
  97.       ButtonBorderMin =   8
  98.       Value           =   3930
  99.       SliderVertical  =   0   'False
  100.       PicBackGround   =   "Form1.frx":19BA8
  101.       PicButton       =   "Form1.frx":1DA28
  102.    End
  103.    Begin DynaSliderX.DynaSlider DynaSlider1 
  104.       Height          =   3945
  105.       Left            =   120
  106.       TabIndex        =   1
  107.       Top             =   600
  108.       Width           =   855
  109.       _ExtentX        =   1508
  110.       _ExtentY        =   6959
  111.       MaxValue        =   2415
  112.       MinValue        =   20
  113.       PicBackGround   =   "Form1.frx":1DF10
  114.       PicButton       =   "Form1.frx":2206C
  115.       ButtonBorderMax =   5
  116.       ButtonBorderMin =   5
  117.       Value           =   2415
  118.       PicBackGround   =   "Form1.frx":22554
  119.       PicButton       =   "Form1.frx":266B0
  120.    End
  121.    Begin DynaSliderX.DynaSlider DynaSlider4 
  122.       Height          =   705
  123.       Left            =   120
  124.       TabIndex        =   5
  125.       Top             =   4800
  126.       Width           =   3660
  127.       _ExtentX        =   6456
  128.       _ExtentY        =   1244
  129.       PicBackGround   =   "Form1.frx":26B98
  130.       PicButton       =   "Form1.frx":298FC
  131.       ButtonBorderMax =   50
  132.       ButtonBorderMin =   50
  133.       SliderVertical  =   0   'False
  134.       PicBackGround   =   "Form1.frx":29DB4
  135.       PicButton       =   "Form1.frx":2CB18
  136.    End
  137.    Begin DynaSliderX.DynaSlider DynaSlider6 
  138.       Height          =   1095
  139.       Left            =   6720
  140.       TabIndex        =   7
  141.       Top             =   3480
  142.       Width           =   450
  143.       _ExtentX        =   794
  144.       _ExtentY        =   1931
  145.       MaxValue        =   255
  146.       PicBackGround   =   "Form1.frx":2CFD0
  147.       PicButton       =   "Form1.frx":2DCF8
  148.       ButtonBorderMax =   3
  149.       ButtonBorderMin =   2
  150.       Value           =   140
  151.       PicBackGround   =   "Form1.frx":2E000
  152.       PicButton       =   "Form1.frx":2ED28
  153.    End
  154.    Begin DynaSliderX.DynaSlider DynaSlider7 
  155.       Height          =   1095
  156.       Left            =   7200
  157.       TabIndex        =   8
  158.       Top             =   3480
  159.       Width           =   450
  160.       _ExtentX        =   794
  161.       _ExtentY        =   1931
  162.       MaxValue        =   255
  163.       PicBackGround   =   "Form1.frx":2F030
  164.       PicButton       =   "Form1.frx":2FD58
  165.       ButtonBorderMax =   3
  166.       ButtonBorderMin =   2
  167.       Value           =   159
  168.       PicBackGround   =   "Form1.frx":30060
  169.       PicButton       =   "Form1.frx":30D88
  170.    End
  171.    Begin DynaSliderX.DynaSlider DynaSlider8 
  172.       Height          =   1095
  173.       Left            =   7680
  174.       TabIndex        =   9
  175.       Top             =   3480
  176.       Width           =   450
  177.       _ExtentX        =   794
  178.       _ExtentY        =   1931
  179.       MaxValue        =   255
  180.       PicBackGround   =   "Form1.frx":31090
  181.       PicButton       =   "Form1.frx":31DB8
  182.       ButtonBorderMax =   3
  183.       ButtonBorderMin =   2
  184.       Value           =   120
  185.       PicBackGround   =   "Form1.frx":320C0
  186.       PicButton       =   "Form1.frx":32DE8
  187.    End
  188.    Begin VB.Label Label3 
  189.       BackColor       =   &H0000FFFF&
  190.       Height          =   255
  191.       Index           =   3
  192.       Left            =   7770
  193.       TabIndex        =   13
  194.       Top             =   3180
  195.       Width           =   255
  196.    End
  197.    Begin VB.Label Label3 
  198.       BackColor       =   &H00FF0000&
  199.       Height          =   255
  200.       Index           =   2
  201.       Left            =   7290
  202.       TabIndex        =   12
  203.       Top             =   3195
  204.       Width           =   255
  205.    End
  206.    Begin VB.Label Label3 
  207.       BackColor       =   &H0000FF00&
  208.       Height          =   255
  209.       Index           =   1
  210.       Left            =   6810
  211.       TabIndex        =   11
  212.       Top             =   3195
  213.       Width           =   255
  214.    End
  215.    Begin VB.Label Label3 
  216.       BackColor       =   &H000000FF&
  217.       Height          =   255
  218.       Index           =   0
  219.       Left            =   6330
  220.       TabIndex        =   10
  221.       Top             =   3195
  222.       Width           =   255
  223.    End
  224.    Begin VB.Label Label1 
  225.       Alignment       =   2  'Center
  226.       BackStyle       =   0  'Transparent
  227.       Caption         =   "0000"
  228.       BeginProperty Font 
  229.          Name            =   "Arial"
  230.          Size            =   27.75
  231.          Charset         =   0
  232.          Weight          =   400
  233.          Underline       =   0   'False
  234.          Italic          =   0   'False
  235.          Strikethrough   =   0   'False
  236.       EndProperty
  237.       ForeColor       =   &H00FFFFFF&
  238.       Height          =   690
  239.       Left            =   3780
  240.       TabIndex        =   0
  241.       Top             =   4830
  242.       Width           =   1425
  243.    End
  244.    Begin VB.Image Image1 
  245.       Height          =   2415
  246.       Left            =   1200
  247.       Picture         =   "Form1.frx":330F0
  248.       Stretch         =   -1  'True
  249.       Top             =   1200
  250.       Width           =   3930
  251.    End
  252.    Begin VB.Label Label2 
  253.       Alignment       =   2  'Center
  254.       BackStyle       =   0  'Transparent
  255.       Caption         =   "SLIDER DEMONSTRATION"
  256.       BeginProperty Font 
  257.          Name            =   "Arial"
  258.          Size            =   12
  259.          Charset         =   0
  260.          Weight          =   700
  261.          Underline       =   -1  'True
  262.          Italic          =   -1  'True
  263.          Strikethrough   =   0   'False
  264.       EndProperty
  265.       ForeColor       =   &H00FFFFFF&
  266.       Height          =   375
  267.       Left            =   2340
  268.       TabIndex        =   2
  269.       Top             =   120
  270.       Width           =   3615
  271.    End
  272. Attribute VB_Name = "Form1"
  273. Attribute VB_GlobalNameSpace = False
  274. Attribute VB_Creatable = False
  275. Attribute VB_PredeclaredId = True
  276. Attribute VB_Exposed = False
  277. Private Sub DynaSlider1_ValueChanged()
  278.     Image1.Height = DynaSlider1.Value
  279. End Sub
  280. Private Sub DynaSlider2_ValueChanged()
  281.     Image1.Width = DynaSlider2.Value
  282. End Sub
  283. Private Sub DynaSlider3_ValueChanged()
  284.     Label2.ForeColor = RGB(DynaSlider3.Value, DynaSlider3.Value, DynaSlider3.Value)
  285. End Sub
  286. Private Sub DynaSlider4_ValueChanged()
  287.     Label1.Caption = DynaSlider4.Value
  288. End Sub
  289. Private Sub DynaSlider5_ValueChanged()
  290.     Label3(0).BackColor = RGB(DynaSlider5.Value, 0, 0)
  291. End Sub
  292. Private Sub DynaSlider6_ValueChanged()
  293.     Label3(1).BackColor = RGB(0, DynaSlider6.Value, 0)
  294. End Sub
  295. Private Sub DynaSlider7_ValueChanged()
  296.     Label3(2).BackColor = RGB(0, 0, DynaSlider7.Value)
  297. End Sub
  298. Private Sub DynaSlider8_ValueChanged()
  299.     Label3(3).BackColor = RGB(DynaSlider8.Value, DynaSlider8.Value, 0)
  300. End Sub
  301. Private Sub DynaSlider9_ValueChanged()
  302.     Form1.Height = DynaSlider9.Value
  303. End Sub
  304.